home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / Visual Basic 5 Developer's Kit.iso / codes / unit1.~pa < prev    next >
Text File  |  1997-07-10  |  1KB  |  76 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ExtCtrls, MPlayer;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Panel1: TPanel;
  12.     Image1: TImage;
  13.     Image2: TImage;
  14.     Image3: TImage;
  15.     Image4: TImage;
  16.     Image5: TImage;
  17.     Image6: TImage;
  18.     MediaPlayer1: TMediaPlayer;
  19.     procedure Image2Click(Sender: TObject);
  20.     procedure Image3Click(Sender: TObject);
  21.     procedure Image4Click(Sender: TObject);
  22.     procedure Image5Click(Sender: TObject);
  23.     procedure Image6Click(Sender: TObject);
  24.     procedure FormShow(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. var
  32.   Form1: TForm1;
  33.  
  34. implementation
  35.  
  36. {$R *.DFM}
  37.  
  38. procedure TForm1.Image2Click(Sender: TObject);
  39. begin
  40. close;
  41. end;
  42.  
  43. procedure TForm1.Image3Click(Sender: TObject);
  44. begin
  45. winexec('explorer \',SW_Shownormal);
  46. end;
  47.  
  48. procedure TForm1.Image4Click(Sender: TObject);
  49. begin
  50. winexec('explorer \rts',SW_Shownormal);
  51. end;
  52.  
  53. procedure TForm1.Image5Click(Sender: TObject);
  54. begin
  55. winexec('explorer \dlls',SW_Shownormal);
  56. end;
  57.  
  58. procedure TForm1.Image6Click(Sender: TObject);
  59. begin
  60. winexec('explorer \dev',SW_Shownormal);
  61. end;
  62.  
  63. procedure TForm1.FormShow(Sender: TObject);
  64. begin
  65.  
  66. with mediaplayer1 do
  67. begin
  68. filename:='bcs.wav';
  69. open;
  70. play;
  71. end;
  72.  
  73. end;
  74.  
  75. end.
  76.